home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / TIMESCPE.dxr / 00165_scrollbar ball.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  7.0 KB  |  144 lines
  1. on exitFrame
  2.   global gSplit
  3.   hPositionSet()
  4.   set the locH of sprite 1 to ((the locH of sprite 46 - 103) * 51 / 12) - 572
  5.   if the castNum of sprite 39 = the number of member "pixel" then
  6.     case 1 of
  7.       ((the locH of sprite 1 > -650) and (the locH of sprite 1 < -290)):
  8.         if gSplit = 2 then
  9.           hHotRect(4, "hotRect1", -924, 97, 94, 165)
  10.           hRolCheck(4, 2, 44, 45, -1023, 257, "bell.pict3", "prologue.label")
  11.         else
  12.           if gSplit = 4 then
  13.             hHotRect(4, "hotRect1", 9999, 185, 288, 263)
  14.           end if
  15.         end if
  16.       ((the locH of sprite 1 > -290) and (the locH of sprite 1 < 385)):
  17.         hHotRect(4, "hotRect1", -202, 116, 144, 220)
  18.         hRolCheck(4, 2, 44, 45, -274, 278, "train.pict", "unit 6.label")
  19.       ((the locH of sprite 1 > 376) and (the locH of sprite 1 < 1033)):
  20.         hHotRect(4, "hotRect1", 434, 111, 113, 206)
  21.         hRolCheck(4, 2, 44, 45, 372, 261, "radio.pict", "unit 8.label")
  22.       ((the locH of sprite 1 > 1046) and (the locH of sprite 1 < 1390)):
  23.         hHotRect(4, "hotRect1", 1100, 110, 107, 136)
  24.         hRolCheck(4, 2, 44, 45, 1043, 192, "computer.pict2", "unit 10.label")
  25.     end case
  26.     case 1 of
  27.       ((the locH of sprite 1 > -650) and (the locH of sprite 1 < 20)):
  28.         hHotRect(5, "hotRect2", -562, 87, 121, 202)
  29.         hRolCheck(5, 3, 45, 44, -625, 243, "cannon.pict2", "unit 5.label")
  30.       ((the locH of sprite 1 > 38) and (the locH of sprite 1 < 691)):
  31.         hHotRect(5, "hotRect2", 102, 106, 109, 168)
  32.         hRolCheck(5, 3, 45, 44, 49, 218, "factory.pict2", "unit 7.label")
  33.       ((the locH of sprite 1 > 736) and (the locH of sprite 1 < 1357)):
  34.         hHotRect(5, "hotRect2", 780, 103, 101, 133)
  35.         hRolCheck(5, 3, 45, 44, 725, 186, "capsule.pict", "unit 9.label")
  36.     end case
  37.     hCheckButtons()
  38.   end if
  39.   hScrollCheck()
  40.   if the castNum of sprite 39 <> the number of member "pixel" then
  41.     set the locH of sprite 4 to 9995
  42.     set the locH of sprite 5 to 9995
  43.   end if
  44.   if the castNum of sprite 39 = the number of member "menu" then
  45.     if the castNum of sprite 44 = the number of member "prologue.label" then
  46.       hMenuRoll(40, "prologue.rev", "prologue", rect(175, 150, 464, 166))
  47.       hMenuRoll(41, "pixel", "pixel", rect(175, 167, 464, 183))
  48.       hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  49.       hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  50.     end if
  51.     if the castNum of sprite 45 = the number of member "unit 5.label" then
  52.       if gSplit = 2 then
  53.         hMenuRoll(40, "unit5.ch1rev", "unit5.ch1", rect(175, 150, 464, 166))
  54.         hMenuRoll(41, "unit5.ch2rev", "unit5.ch2", rect(175, 167, 464, 183))
  55.         hMenuRoll(42, "unit5.ch3rev", "unit5.ch3", rect(175, 185, 464, 201))
  56.         hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  57.       else
  58.         if gSplit = 4 then
  59.           hMenuRoll(40, "unit5.ch13rev", "unit5.ch13", rect(175, 150, 464, 166))
  60.           hMenuRoll(41, "unit5.ch14rev", "unit5.ch14", rect(175, 167, 464, 183))
  61.           hMenuRoll(42, "unit5.ch15rev", "unit5.ch15", rect(175, 185, 464, 201))
  62.           hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  63.         end if
  64.       end if
  65.     end if
  66.     if the castNum of sprite 44 = the number of member "unit 6.label" then
  67.       if gSplit = 2 then
  68.         hMenuRoll(40, "unit6.ch4rev", "unit6.ch4", rect(175, 150, 464, 166))
  69.         hMenuRoll(41, "unit6.ch5rev", "unit6.ch5", rect(175, 167, 464, 183))
  70.         hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  71.         hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  72.       else
  73.         if gSplit = 4 then
  74.           hMenuRoll(40, "unit6.ch16rev", "unit6.ch16", rect(175, 150, 464, 166))
  75.           hMenuRoll(41, "unit6.ch17rev", "unit6.ch17", rect(175, 167, 464, 183))
  76.           hMenuRoll(42, "pixel", "pixel", rect(175, 185, 464, 201))
  77.           hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  78.         end if
  79.       end if
  80.     end if
  81.     if the castNum of sprite 45 = the number of member "unit 7.label" then
  82.       if gSplit = 2 then
  83.         hMenuRoll(40, "unit7.ch6rev", "unit7.ch6", rect(175, 150, 464, 166))
  84.         hMenuRoll(41, "unit7.ch7rev", "unit7.ch7", rect(175, 167, 464, 183))
  85.         hMenuRoll(42, "unit7.ch8rev", "unit7.ch8", rect(175, 185, 464, 201))
  86.         hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  87.       else
  88.         if gSplit = 4 then
  89.           hMenuRoll(40, "unit7.ch18rev", "unit7.ch18", rect(175, 150, 464, 166))
  90.           hMenuRoll(41, "unit7.ch19rev", "unit7.ch19", rect(175, 167, 464, 183))
  91.           hMenuRoll(42, "unit7.ch20rev", "unit7.ch20", rect(175, 185, 464, 201))
  92.           hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  93.         end if
  94.       end if
  95.     end if
  96.     if the castNum of sprite 44 = the number of member "unit 8.label" then
  97.       if gSplit = 2 then
  98.         hMenuRoll(40, "unit8.ch9rev", "unit8.ch9", rect(175, 150, 464, 166))
  99.         hMenuRoll(41, "unit8.ch10rev", "unit8.ch10", rect(175, 167, 464, 183))
  100.         hMenuRoll(42, "unit8.ch11rev", "unit8.ch11", rect(175, 185, 464, 201))
  101.         hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  102.       else
  103.         if gSplit = 4 then
  104.           hMenuRoll(40, "unit8.ch21rev", "unit8.ch21", rect(175, 150, 464, 166))
  105.           hMenuRoll(41, "unit8.ch22rev", "unit8.ch22", rect(175, 167, 464, 183))
  106.           hMenuRoll(42, "unit8.ch23rev", "unit8.ch23", rect(175, 185, 464, 201))
  107.           hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  108.         end if
  109.       end if
  110.     end if
  111.     if the castNum of sprite 45 = the number of member "unit 9.label" then
  112.       if gSplit = 2 then
  113.         hMenuRoll(40, "unit9.ch12rev", "unit9.ch12", rect(175, 150, 464, 166))
  114.         hMenuRoll(41, "unit9.ch13rev", "unit9.ch13", rect(175, 167, 464, 183))
  115.         hMenuRoll(42, "unit9.ch14rev", "unit9.ch14", rect(175, 185, 464, 201))
  116.         hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  117.       else
  118.         if gSplit = 4 then
  119.           hMenuRoll(40, "unit9.ch24rev", "unit9.ch24", rect(175, 150, 464, 166))
  120.           hMenuRoll(41, "unit9.ch25rev", "unit9.ch25", rect(175, 167, 464, 183))
  121.           hMenuRoll(42, "unit9.ch26rev", "unit9.ch26", rect(175, 185, 464, 201))
  122.           hMenuRoll(43, "pixel", "pixel", rect(175, 202, 464, 218))
  123.         end if
  124.       end if
  125.     end if
  126.     if the castNum of sprite 44 = the number of member "unit 10.label" then
  127.       if gSplit = 2 then
  128.         hMenuRoll(40, "unit10.ch15rev", "unit10.ch15", rect(175, 150, 464, 166))
  129.         hMenuRoll(41, "unit10.ch16rev", "unit10.ch16", rect(175, 167, 464, 183))
  130.         hMenuRoll(42, "unit10.ch17.rev", "unit10.ch17", rect(175, 185, 464, 201))
  131.         hMenuRoll(43, "unit10.ch18rev", "unit10.ch18", rect(175, 202, 464, 218))
  132.       else
  133.         if gSplit = 4 then
  134.           hMenuRoll(40, "unit10.ch27rev", "unit10.ch27", rect(175, 150, 464, 166))
  135.           hMenuRoll(41, "unit10.ch28rev", "unit10.ch28", rect(175, 167, 464, 183))
  136.           hMenuRoll(42, "unit10.ch29rev", "unit10.ch29", rect(175, 185, 464, 201))
  137.           hMenuRoll(43, "unit10.ch30rev", "unit10.ch30", rect(175, 202, 464, 218))
  138.         end if
  139.       end if
  140.     end if
  141.   end if
  142.   go(the frame)
  143. end
  144.